Sub MemberFields()
Dim rst1 As ADODB.Recordset
Dim fld1 As ADODB.Field
    
'Open table and print field names
Set rst1 = New ADODB.Recordset
rst1.Open "MEMBERS", CurrentProject.Connection
For Each fld1 In rst1.Fields
     Debug.Print fld1.Name
Next fld1

'Clean up before exiting
rst1.Close
Set rst1 = Nothing

End Sub
